ماوس در قفس یکی از بهترین فیلم ها و پر هیجانترین فیلم سال هالیوود نیست ! بلکه کد ویروسه ! شیفم ؟!
فکر کنم تقريبا همتون اون ويروس لعنتی را که يه دفعه ظاهر میشه و شما رو
دعوت به راه نيک ميکنه و اگه گوش ندين ماوس رو توی قفس می اندازه را ديده
باشيد .راستش.
البته اين کدا فقط مربوط به تابع mouse cage و يا قفس ماوسه ولی اگه کمی سلیقه خرج بدین میتونین همون ویروس را دقیقا پیاده سازی کنین .
مواد مورد نیاز: یه دکمه Command
بريم سراغ کدها:
کد:
Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Private Type POINT
x As Long
y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)
Private Sub Form_Load()
Dim client As RECT
Dim upperleft As POINT
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
Command1.Caption = " disable" ' gheyre faal boodane maouse
End Sub
Private Sub Command1_Click()
ClipCursor ByVal 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
ClipCursor ByVal 0&
End Sub
دوستان اساس اين برنامه بر پايه تابعی بنام ClipCursor است.
کاراین تابع اینه که نشانگر ماوس را در یک مستطیل محبوس میکنه
ما در پاراگرافهای اول این مستطيل رو فرم خودمون در نظر گرفتيم و این و سرانجام در رویداد کلید 1کدهایی که سبب وغیر فعال شدن برنامه میشن رو قرار میدیم تا خودتون گیر نیفتین .(البته اگه خواستين از این برنامه بعنوان ویروس استفاده کنین کلید 1 را نا مرئی کنين)
البته گفتنیه که اگه تابع به مشکل بر بخوره عدد 0 رو بر میگردونه که ما با همین روش کلید 1 را برای غیر فعال سازی برنامه طراحی میکنیم در واقع با فشردن کلید 1 به تابع عدد 0 رو نسبت داده و برنامه رو غیر فعال می کنیم.
نظرات شما عزیزان:
|